home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 1381.ZIP / WINDOW.DOC < prev    next >
Text File  |  1988-08-02  |  8KB  |  249 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.                         QUICKSUBS LIBRARY
  10.                        FOR QUICKBASIC 4.0
  11.                           WITH WINDOWS
  12.                                 
  13.                                 
  14.                                 
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.                         David C. Dilbeck
  23.           Data Processing & Management Solutions, Inc.
  24.  
  25.                         COPYRIGHT NOTICE
  26. This software package and documentation are copyrighted (C)1988 by
  27. Data Processing and Management Solutions, Inc., hereafter called DPMS, Inc. 
  28. All rights are reserved worldwide. 
  29.                     DPMS, Inc.
  30.                     P.O. Box 931
  31.                     Harrogate, TN  37752
  32.  
  33.                      SINGLE COMPUTER LICENSE
  34. The price paid for one copy of QUICKLIBS licenses you to install and use 
  35. the produc on only one computer at a time.  You may remove it from that 
  36. one computer and install it on anouther, but at no time are you allowed 
  37. to make multiple copies available for others to use.  If you intall the 
  38. product on a network or in some other way that allows it to be used by 
  39. others, you must first obtain a multi-user license from DPMS, Inc.
  40.  
  41.                  S H A R E W A R E  N O T I C E
  42.                 ================================
  43. SHAREWARE user-supported software is an method in distributing computer 
  44. programs, based on three principles:
  45.  
  46. First, that the value and utility of software is best assessed by the user 
  47. on his/her own system.  Only after using a program can one really determine 
  48. whether it serves personal applications, needs, and tastes.
  49.  
  50. Second, that the creation of independent personal computer software can and 
  51. should be supported by the computing community.
  52.  
  53. Finally, that copying of programs should be encouraged, rather than restricted.
  54. The ease with which software can be distributed outside traditional commercial 
  55. channels reflects the strength, rather than the weakness, of electronic 
  56. information.
  57.  
  58. The user-supported concept:
  59. Anyone may request a copy of a user-supported program by sending a blank, 
  60. formated disk to the program author with an addressed, postage-paid return 
  61. mailer.  A copy of the program, with documentation on disk, will be sent by 
  62. return mail on the user's disk.
  63.  
  64. The program carries a notice suggesting a contribution for the program.  
  65. Making a contribution is voluntary on the part of the user.  The program 
  66. may also by ordered by mail for an advance contribution.
  67.  
  68. If you have received this program from another user and find it of value, 
  69. your $35.00 contribution will be appreciated.  When we receive the 
  70. contribution we will then at your name to the list of registraed users, 
  71. and as such you will receive a update to your program diskette, so that 
  72. it is not limited in any way.  The shareware version of these programs 
  73. and routines do have a single limitation, called a date stamp.  The date 
  74. stamp reads the system date and compares it to the date stamp on the 
  75. internal programs, if the system date is greater, the programs will not 
  76. fuction at all.  So if you find these program useful, please send in the 
  77. contribution, it is such a small price to pay for the great stuff you 
  78. receive from us.  
  79.  
  80.                            DISCLAIMER
  81. DPMS, Inc. makes no warranties as to the contents of this manual and 
  82. specifically disclaims any implied warranties of merchantability or 
  83. fitness for any particular purpose.  DPMS, Inc. further reserves the 
  84. right to make changes to the specifications of the program and contents 
  85. of the manual without obligation to notify any person or organization of 
  86. such changes.
  87.  
  88.                              PREFACE
  89.     This manual is directed at programmers who develop software for 
  90. the various models of the IBM Personal Computer (PC), and compatibles.  
  91. This manual illustrates techniques for effective user-interface design. 
  92. Its main objective is to help programmers design programs that are easy 
  93. for operators to learn and use, and are subject to minimally operator errors.  
  94. It other words, this is a manual on how to design "user-friendly" programs.
  95.  
  96.     The manual assumes that you have a system with at least two disk drives, 
  97. an minimum of 340 kilobytes of randow-access memory, , a monitor, a CGA 
  98. card, and QuickBASIC 4.0.
  99.  
  100.     In the pages to follow you will learn the basic design aids for screen 
  101. and window displays, index files, custom input routines, and various 
  102. other sample programs and routine examples to allow you to write a truly 
  103. "user-friendly" system.
  104.  
  105.  
  106.  
  107.     You will notice that some of the functions, sub-programs, etc. are listed 
  108. more than once.  This is because that a few of the functions from one library 
  109. are in the other also.  They do however work the same.
  110. Center$
  111. PURPOSE
  112.     To center a string of text between two points
  113.  
  114. SUMMARY
  115.     Center$ (PASSED.DATA$, LENGTH AS INTEGER)
  116.  
  117. RETURN
  118.     The string centered between the two points
  119.  
  120. EXAMPLE
  121. 100 'SETUP AN EXAMPLE PROGRAM FOR THE CENTER$ FUNCTION
  122.     NA$ = "DAVID"
  123.     LEG% = 20
  124. 200 PRINT CENTER$(NA$,LEG%)
  125. 300 END
  126.  
  127. CloseWindow
  128. PURPOSE
  129. To close the open window on the screen.  This routine also restores the 
  130. first screen, and the cursor locations.
  131.  
  132. SUMMARY
  133. CALL CloseWindow (int1, int2)
  134.  
  135. RETURN
  136. The first screen, with the cursor positions intact.
  137.  
  138. EXAMPLE
  139. 100 'PROGRAM TO CLOSE A WINDOW & RESTORE FIRST SCREEN
  140.     CALL CloseWindow(CurRow%, CurCol%)
  141. 200 END
  142.  
  143. Format$
  144. PURPOSE
  145. To arrange numric data into any format wanted.
  146.  
  147. SUMMARY
  148. X$ = Format$(MASK$, PASSED.NUMBER AS DOUBLE)
  149.  
  150. RETURN
  151. This fuction returns a string with the mask and the number merged together. 
  152.  
  153. EXAMPLE
  154. 100 'SAMPLE PROGRAM USING THE FORMAT$ FUNCTION
  155.     mask$ = "XXX-XX-XXXX"
  156.     ss# = 409314359
  157.     sso$ = Format$(mask$,ss#)
  158. 200 PRINT sso$
  159. 300 END
  160. The output from the above program would be:
  161.         409-31-4359   
  162.  
  163. Loop.For.Enter
  164. PURPOSE
  165. This subprogram just puts the CPU into a loop until the enter 
  166. key (CHR$(13)) is pressed.
  167.  
  168. SUMMARY
  169. CALL Loop.For.Enter
  170.  
  171. RETURN
  172. There is no return value for this routine
  173.  
  174. EXAMPLE
  175. 100 'THIS AN EXAMPLE PROGRAM USING THE LOOP.FOR.ENTER ROUTINE
  176.     CALL Loop.For.Enter
  177. 200 END
  178.  
  179. NumricInput
  180. PURPOSE
  181.     Get numric input from the keyboard
  182.  
  183. SUMMARY
  184.     CALL NumricInput(Row%, Column%, Length%, Dec%)
  185.  
  186. RETURN
  187.     A numric value stored in the string varible sa$, must be converted 
  188. to numric varible using the following example.
  189.  
  190. EXAMPLE
  191. 100 'Program to show the use of the NumricInput sub-program
  192. 200 CALL NumricInput(5,10,5,2)
  193.     amount#=val(SA$)
  194. 300 END
  195.  
  196. OpenWindow
  197. PURPOSE                         
  198.     To open a window of any size, color, and location on the CRT.  
  199. Before opening the window the first screen is saved into high memory.
  200.  
  201. SUMMARY
  202.     CALL OpenWindow (BegRow%, BegCol%, HowLong%, HowWide%,   ForGround%, 
  203.                   BackGround%, TITLE$)
  204.  
  205. RETURN
  206.     A window on the CRT, which may be written to by use of the LOCATE,
  207.  and PRINT commands.  
  208.  
  209. EXAMPLE
  210. 100 'Example program showes the OpenWindow sub-program
  211.     TITLE$ = "Sample Window Program"
  212. 200 CALL OpenWindow (5,10,10,40,2,7,TITLE$)
  213.     CALL Loop.For.Enter
  214.     CALL CloseWindow (CurRow%, CurCol%)
  215. 300 END
  216.  
  217. PhoneInput
  218. PURPOSE
  219.     To enter a number into a string, and convert it the telephone number format.
  220.  
  221. SUMMARY
  222.     CALL PhoneInput (Row%, Column%, Lenght%, SA$)
  223.  
  224. RETURN
  225.     The phone number in the correct format, stored in a tempary varible SA$
  226.  
  227. EXAMPLE
  228. 100 'Example program showing the use of the PhoneInput function
  229. 200 CALL PhoneInut (5,5,10,SA$)
  230.     phone$ = sa$
  231. 300 END
  232.  
  233. StringInput
  234. PURPOSE
  235.     To allow string data to be entered into a varible in a controlled manner.
  236.  
  237. SUMMARY
  238.     CALL StringInput ( Row%, Column%, Length%, SA$)
  239.  
  240. RETURN
  241.     This function also returns a tempary varible called SA$, which 
  242. needs to be reassigned to the correct varible name.
  243.  
  244. EXAMPLE
  245. 100 'Example program showing the use of StringInput
  246. 200 CALL StringInput (5,5,20,SA$)
  247.     address$ = sa$
  248. 300 END
  249.